home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
edit
/
me_cd.zip
/
SOFTPOP.MUT
< prev
next >
Wrap
Text File
|
1988-02-29
|
400b
|
17 lines
; softpop.mut : popup a window showing the soft keys
; C Durland
(include popup.mut)
(defun
softkey-box ; popup a box with the softkey bindings in it
{
(int j)
(popup-window 5 50 25 10)
(for (j 1) (< j 10) (+= j 1)
(wputs (concat " f" j ": "(key-bound-to (concat "F-" j)))))
(wputs (concat " f10: "(key-bound-to "F-0")))
}
MAIN { (softkey-box) }
)